!  F_TEST.f90 
!
!  FUNCTIONS:
!  F_TEST      - Entry point of console application.
!

!****************************************************************************
!
!  PROGRAM: F_TEST
!
!  PURPOSE:  Entry point for the console application.
!
!****************************************************************************

    program F_TEST

    IMPLICIT DOUBLE PRECISION (A-H,O-Z)

    ! Variables

    write(*,*)' ciao mondo '
    
    write(*,*)'  fornire nobs,var1,npar1,var2,npar2 '
    read(*,*)nobs,var1,npar1,var2,npar2
    
    call Ftest(nobs,var1,npar1,var2,npar2,qtot,signif)
    
    write(*,*)' nobs,var1,npar1,var2,npar2,qtot,signif '
    write(*,*)nobs,var1,npar1,var2,npar2,qtot,signif
    
    pause


    ! Body of F_TEST

    end program F_TEST

